home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 025a / gsdb25.zip / DB_XPL14.PAS < prev    next >
Pascal/Delphi Source File  |  1990-12-27  |  1KB  |  55 lines
  1. program DB_Xpl14;
  2. uses
  3.    CRT,
  4.    GS_KeyI;
  5.  
  6. type
  7.    MyObjt = Object(GS_KeyI_Objt)
  8.                PROCEDURE Check_Func_Keys; virtual;
  9.                CONSTRUCTOR Init;
  10.             end;
  11.  
  12. var
  13.    MyKeyIn : MyObjt;
  14.    DumyStr : string;
  15.  
  16. CONSTRUCTOR MyObjt.Init;
  17. begin
  18.    GS_KeyI_Objt.Init;
  19. end;
  20.  
  21. PROCEDURE MyObjt.Check_Func_Keys;
  22. var
  23.    i : integer;
  24. begin
  25.    i := 0;
  26.    case Ch of
  27.       Kbd_F1    :  i := 1;
  28.       Kbd_F2    :  i := 2;
  29.       Kbd_F3    :  i := 3;
  30.       Kbd_F4    :  i := 4;
  31.       Kbd_F5    :  i := 5;
  32.       Kbd_F6    :  i := 6;
  33.       Kbd_F7    :  i := 7;
  34.       Kbd_F8    :  i := 8;
  35.       Kbd_F9    :  i := 9;
  36.       Kbd_F10   :  i := 10;
  37.       else GS_KeyI_Objt.Check_Func_Keys;
  38.    end;
  39.    if i > 0 then
  40.    begin
  41.       gotoxy(10,20);
  42.       write('':25);
  43.       gotoxy(10,20);
  44.       write('Function Key ',i,' Pressed');
  45.    end;
  46. end;
  47.  
  48. begin
  49.    ClrScr;
  50.    MyKeyIn.Init;
  51.    DumyStr := 'TEST';
  52.    DumyStr := MyKeyIn.EditString(DumyStr,5,5,20);
  53. end.
  54.  
  55.